PROGRAM LIBRARY 


DECUS NO. 

8-149 

TITLE 

CORE WINDOW 

AUTHOR 

Donald C. Uber 

COMPANY 

Lawrence Radiation Laboratory 

University of California 

DATE 

August 7, 1968 

SOURCE LANGUAGE 



Although this program has been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 











CORE WINDOW 


DECUS Program Library Write-up 


DECUS No. 8-149 


OPERATING INSTRUCTIONS 

1. Load CORE WINDOW into any Field using the Binary Loader. 

* 2. Set the DATA FIELD switches to the Field to be viewed. 

* 3- Set the INST FIELD switches to the Field CORE WINDOW 

was loaded into. 

4. Set the SWITCH REGISTER to 7400. 7 

5. Press LOAD ADD. 

6. Press START. 

7. Set the SWITCH REGISTER to the address of the First word to 
be viewed. This setting may be changed at any time. 

* Ignore if 4K memory is used. 
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i4m 

740 1 

7402 

7403 
740 4 
7 40 5 
740 6 

740 7 
7410 

741 1 
7412 
741 3 
741 4 
7415 
741 6 
741 7 

7420 

7421 

7422 

7423 

7424 

7425 

7426 

7427 

7430 

7431 

7432 

7433 

7434 

7435 

7436 
7477 

7440 

7441 

7442 


V 


/ 0 3 n E WI N D 0 :•) 1 2 / 3 / 6 8 

/ 7400 

/DISPLAYS 64 CORE WORDS FROM FI ELD IN OF'SOI TOMES 

/STARTING AT OCTAL LOCATION IN SWITCH REGISTER. 
/AUTO-INDEX REGISTER 17 USED 

D=10/SPACE BETWEEN POINTS 
T=4000/COLUMN TERMINATOR 
TT=6000/CHAR TERMINATOR 

INDEX=17/AUTO-INDEX POINTER TO POINT LIST 
* 7400 

7577 START,RDF 
1377 TAD (CDF 

3223 DCA DF/STORE DF CHANGE 
7577 RIF 
1377 TAD (CDF 
3206 OCA .+1 

74/00 NOP/CHANGE DF TO IF SW SETTING 
1236 TAD .-1 

3225 DCA IF/CHANGE DF BACK AFTER GETTING DISPLAY WORD 

7604 FRAME,LAS 

3302 DCA ADDR 

1311 TAD Y0 

3307 LINE,DCA Y 

1310 TAD X0 

3306 DCA X 

1302 TAD ADDR 

4241 JMS WORD/DI SPLAY ADDR 

1315 TAD XTRA 
330 6 DCA X 

7000 DF,NOP/CHANGE DF TO GET DISPLAY WORD 
1702 TAD I ADDR 

7000 IF,NOP/CHANGE DF BACK TO IF 
2302 ISZ ADDR 
7000 NOP 

4241 JMS WORD/DISPLAY WORD 
7510 SPA 

5222 JMP DF-1/DISPLAY NEXT WORD 
7200 CLA/END OF LINE 
1307 TAD Y 

1316 TAD LINSPC 

7500 SNA 

5214 JMP LINE/DISPLAY NEXT LINE 
5211 JMP FRAME/START NEW FRAME 
0000 WORD,0/DISPLAYS A WORD 
3305 DCA DISWRD 
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I R 111 A AT 7443 

7443 

1 374 

TAD C-4 

7444 

3303 

DCA CHRCNT 

7445 

1 30 5 

CHAR*TAD DISWRD 

7446 

700 4 

RAL 

7447 

700 6 

RTL 

7450 

330 5 

DCA DISWRD 

7451 

1 30 5 

TAD DISWRD 

7452 

700 4 

RAL 

7453 

000 7 

AND (7/AC CONTAINS CHAR. 

7454 

1 31 7 

TAD (TABLE 

7455 

330 4 

DCA POINTR 

7456 

1 70 4 

TAD I POINTR 

7457 

301 7 

DCA INDEX/POINTS TO CHAR POINT LIST 

7460 

131 3 

TAD CHRSPC 

7461 

1312 

COLUMN*TAD PTSPC 

7462 

1 30 6 

TAD X 

7463 

7577 

DXL 

7464 

330 6 

DCA X 

7465 

1 30 7 

TAD Y/BASE OF CHAR 

7466 

1 41 7 

POINT*TAD I INDEX/ADD DELTA Y 

7467 

7577 

DYS/DISPLAY POINT 

7470 

7500 

SMA 

7471 

5266 

JMP POINT 

7472 

700 4 

RAL/END OF COLUMN 

7473 

7700 

SMA CLA 

7474 

5261 

JMP COLUMN/DISPLAY NEXT COLUMN 

7475 

230 3 

IS?. CHRCNT 

7476 

5245 

JMP CHAR/DISPLAY NEXT CHAR 

7477 

1 30 6 

TAD X 

7500 

1314 

TAD WRDSPC 

7501 

5641 

JMP I WORD/END OF WORD 

7502 

0000 

ADDR*3/ADDR OF WORD BEING DISPLAYED 

7503 

0000 

CHRCNT*0/CHAR COUNTER 

7504 

0000 

POINTR*0 

750 5 

0000 

DISWRD,0/WORD BEING DISPLAYED 

750 6 

0000 

X*0/X-COORDINATE OF POINT 

750 7 

0000 

Y*0/BASE OF CHAR 

7510 

5757 

X0,6000-21/INITIAL VALUE OF X 

751 1 

1 623 

Y0*1 623/INITIAL VALUE OF Y 

7512 

0010 

PTSPC*D/SPACE BETWEEN POINTS 

7513 

001 1 

CHRSPC*21-D/EXTRA SPACE RETWEEN CHARS 

7514 

0051 

WRDSPC*51/EXTRA SPACE BETWEEN WORDS 

751 5 

00 51 

XTRA*51/EXTRA SPACE AFTER ADDRESS COL 

7516 

770 3 

LINSPC*-75/-SPACE BETWEEN LINES 

75! 7 

7526 

TABLE*ZERO-1/ORIGINS IN CHAR POINT LI 

75°0 

7542 

ONE- 1 

7521 

7 555 

TWO - 1 

7522 

7277 

THREE-1 

75' 3 

7 31 2 

F VI - l 

75 4 

732 6 

FTVE-1 

752 5 

7343 

5 I X - 1 

7 52 6 

7360 

SEVEN-1 


UMN 
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752 / 

0 11 M 


7533 

04 | 


7 n' ’! 

00 1 0 


753? 

40 1 0 

ZERO* 05D5 Of D+T/CHA 

7533 

0000 


7534 

40 50 

0 5 D+0+0+D+0+T 

7535 

0000 


7536 

40 5s 

3 5 D + 0 +11+ D + 0 + T 

7 53 7 

*” 0 1 0 


754 t 

44 10 


7 5 41 

00 1 0 


7 54? 

60 1 0 

OS D5 DSD + TT 

7543 

0 000 


7544 

40 30 

ONE* 35D+D+ 0+T 

7545 

0000 


7546 

4040 

05 D+D+D+O+T 

7547 

0000 


7554 

0010 


7551 

0010 


755? 

0010 


7553 

00 1 0 


7554 

40 1 0 

'i5D5D5D5D5 0+T 

7 5rj > 

6000 

IT 

755 5 

0000 


75 D 7 

40 40 

T'JO*0 5 O+D+D+D+T 

7563 

0000 


7561 

0010 


7562 

4040 

05 D5D+O+D+D + T 

7563 

0000 


7564 

0020 


7565 

4030 

0 5 D+D5 D+D+D + T 

7566 

0000 


7567 

00 30 


757 1 

6010 

0 5 D+D+D5 D+TT 
-+7333 

7333 

00 1 0 


734 1 

40 40 

THREE*05D+D+D+O+T 

7332 

0000 


7333 

00 30 


733 4 

4020 

0 5 D+D+D5 D+D+T 

733 5 

0000 


733 6 

0020 


733 7 

0020 


7310 

4010 

05D+D5D + D5 D+T 

731 1 

0010 


7312 

60 40 

D5 D+D+D+D+TT 

731 3 

0020 


7314 

00 1 0 


731 4 

00 1 0 


731 6 

40 1 0 

FOUR* D+D5D5D5 D+T 

731 7 

4420 

D+D+T 

7323 

4420 

D + D+T 

7321 

0000 


7322 

0010 


7323 

00 10 


7324 

00 1 0 


7325 

0010 


7326 

6010 

05D5D5D5D5D+TT 

7327 

0000 


7333 

44 30 


7331 

04 1 0 
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7332 

4010 

FI VE,0i D+D+O.S Di D + T 

7333 

0000 


7334 

0030 


7335 

4020 

0 J D+D+DJ D+D+T 

7336 

0000 


7337 

0039 


7340 

4020 

0J D+D+D*D+D+T 

7341 

0010 


7342 

0010 


7343 

6030 

DJ DJ D+D+D+TT 

7344 

0000 


7345 

0010 


7346 

0010 


7347 

0010 


7350 

0010 


7351 

4010 

SIX > 0iD1DiDiDiD+T 

7352 

0000 


7353 

4020 

01D+D+T 

7354 

0000 


7355 

4020 

0JD+D+T 

7356 

0000 


7357 

0010 


7360 

6010 

0JDJD+TT 

7361 

0000 

. 

7362 

0010 


7363 

4040 

SEVEN*0i D* D+D+D+D+T 

7364 

0020 


7365 

4030 

D+DiD+D+D+T 

7366 

0030 


7367 

4020 

D+D+DJD+D+T 

7370 

0040 


7371 

6010 

D+D+D+DiD+TT 









ADDR 

75 02 

CDF 

7577 

CHAR 

7 445 

CHRCK'T 

750 3 

CHRSPC 

7513 

COLUMN 

7461 

D 

0O1O 

OF 

7423 

DISURD 

7 50 5 

OXL 

7577 

DYS 

7577 

FIVE 

7327 

FOUR 

731 3 

FRAME 

741 1 

IF 

74R5 

I NO E X 

00 1 7 

LINE 

741 4 

LINSPC 

751 6 

ONE 

7543 

POINT 

7466 

POINTR 

7 50 4 

PTSPC 

7512 

RDF 

7577 

RIF 

7577 

SEVEN 

7361 

SIX 

7344 

START 

7400 

T 

4000 

TABLE 

7517 

THREE 

7300 

TT 

6000 

TWO 

7556 

WORD 

7441 

WRDSPC 

7514 

X 

7 50 6 

XTRA 

7515 

X0 

7510 

Y 

750 7 

Y0 

751 1 

ZERO 

7527 









